home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / omed_pt.lha / rexx / Cut.omed < prev    next >
Text File  |  1995-11-25  |  647b  |  32 lines
  1. /* Cut ranged notes and store rangespecs - Case 04-11-95 */
  2.  
  3. address OCTAMED_REXX
  4. options results
  5.  
  6. 'rn_isranged var rn_state'
  7. if rn_state = 0
  8. then do
  9.     'wi_Showstring "Please select range first"'
  10.     exit
  11. end
  12. else
  13.     'rn_getrangestartline'; rnstartline = result
  14.     'rn_getrangeendline'; rnendline = result
  15.  
  16.     length = rnendline - rnstartline
  17.     length = length + 1
  18.  
  19.     call open("rn_length","T:rn_length.omedtemp",W)
  20.     call writech("rn_length",length)
  21.     call close("rn_length")
  22.  
  23.     call open("rn_lines","T:rn_lines.omedtemp",W)
  24.     call writeln("rn_lines",rnstartline)
  25.     call writeln("rn_lines",rnendline)
  26.     call close("rn_lines")
  27.  
  28.     'rn_cut'
  29.  
  30.     'wi_showstring CUT'
  31.  
  32. exit